10 KEYOFF:COLOR13,1,1:CLS:X=4:Y=5:D=0:VI=5:VP=0:DEFINTR:RA=0:R0=0:R1=0:R2=0:R3=0:FA=0:SCREEN1
20 GOSUB2110:GOSUB2040:GOSUB2010:GOTO90
30 REM  press space 
40 A$="x":A$=INKEY$:IFA$<>" "THENGOTO40
50 RETURN
60 REM  LIMPIA SCROLL 
70 FORK=0TO23:PRINT:NEXTK
80 RETURN
90 REM  PROLOGO 
100 GOSUB60:COLOR15,1:LOCATE9,11:PRINT"O PROLOGO O":GOSUB30:GOSUB60:COLOR10,1:LOCATE0,0:PRINT"Por favor,introduce los      siguientes datos:":PRINT:INPUT"Tu nombre de pila";NOMB$:INPUT"Tu 1er Apellido";APE$
110 IFNOMB$="Jon"ANDAPE$="Cortazar"THEN CLS:PRINT"Cae un rayo del cielo y te   fulmina.Se oye una voz:Has  muerto por no programar el   juego de STARWARS TURCA.    Felicidades, has enconrtado  la unica forma de morir en   este juego!":GOSUB30:RUN
120 PRINT:PRINT"Coge una naranja con la mano derecha y ponte frente a un  espejo.Ahora dime en que manolleva la fruta la persona al otro lado del espejo,";NOMB$;"?":PRINT
130 INPUT"derecha/izquierda";RESP$
140 IF RESP$<>"izquierda"THENPLAY"c5":GOSUB820:PRINT"\ Fijate mejor.":FA=FA+1:GOTO130:ELSEPLAY"e9a5"
150 PRINT:PRINT"B Bien.Ahora dime,si fueras  la persona al otro lado del  espejo,en que mano tendrias  la fruta?":PRINT
160 INPUT"derecha/izquierda";RESP$
170 IF RESP$<>"derecha"THENPLAY"c5":PRINT"\ Fijate mejor.":GOSUB820:GOTO160:ELSEPLAY"e9a5"
180 PRINT:PRINT"B Muy bien.Asi lo creo yo    tambien.Ahora pulsa espacio ypreparate para atraversar el espejo con Alicia ":GOSUB30
190 REM  LA CASA DEL ESPEJO 
200 GOSUB60:COLOR15,1:LOCATE3,11:PRINT"O LA CASA DEL ESPEJO O":GOSUB30:GOSUB60:COLOR5,1:LOCATE0,0:PRINT:PRINT"Alicia estaba tumbada en el  sofa del salon medio despier-ta, medio dormida. Cogio al  minino que se estaba acica-  lando y le pregunto:"
210 PRINT"WSabes jugar al AJEDREZ?. No me pongas esa cara porque te hablo muy en serio... Y si   jugamos a que eras la REINA  Roja?.Solo tienes que cruzar las patas y mirar con altane-ria.":PRINT
220 INPUT"Una preguntilla,de que color crees que era el gatito de   Alicia";RESP$
230 IF RESP$<>"negro"THENPLAY"c5":PRINT"\ NO. Pista:piensa en el aje-drez...":GOSUB820:GOTO220:ELSEPLAY"e9a5"
240 PRINT:PRINT"B BIEN. En ajedrez hay 2 co- lores, blancas y negras. Aun-que Alicia hable de piezas   rojas,Estas representan al   bando negro que es el color  del minino. Alicia seria en  este caso la REINA Blanca.":GOSUB30
250 PRINT:PRINT"A Alicia no le parecio apro- piada la forma en que cruzabalas patas el minino, asi que para castigarlo lo cogio en  vilo y lo puso delante del   espejo para que observara su desgarbada figura:"
260 PRINT"WSi no te portas bien pienso llevarte a la casa al otro   lado del espejo.La verdad es que me gustaria estar alli.Separece mucho a nuestra casa  pero las cosas estan al reveso al menos lo que se ve desdeaqui.":PRINT
270 INPUT"Dime, que ciencia esta basadaen el efecto del espejo,es decir,una imagen y su contraria";RESP$
280 IF RESP$<>"informatica"THENPLAY"c5":PRINT"\ NO. Pista: ciencia basada  en la logica,en el SI y el NO...":GOSUB820:GOTO270:ELSEPLAY"e9a5"
290 PRINT:PRINT"B BIEN. Esa era la respuesta que buscaba.":GOSUB30
300 PRINT:PRINT"WFijate,Minino!Parece que el cristal se disuelve en una   especie de niebla!Apuesto a  que ahora me seria muy facil pasar a traves de El."
310 PRINT"Se subio a la repisa  de la  chimenea y comprobo como el  cristal se deshacia entre susmanos como una bruma plateaday brillante. Un instante     despues habia pasado a travesdel cristal y se habia dejadocaer en el salon de la Casa  Del Espejo."
320 PRINT"El salon era el mismo, pero  diferente.Los cuadros tenian vida.El reloj de la chimenea tenia cara de un viejecito depicara sonrisa. Las cosas    estaban desordenadas y las   piezas de ajedrez correteabanpor la estancia!.":GOSUB30
330 PRINT"WDebo ver el resto de la casaantes de que se haga tarde.  Empezare por el jardin!.":PRINT"Asi salio del salon como una exhalacion corriendo escale- ras abajo.Casi volando,o mas bien flotando."
340 PRINT"Se sintio orgullosa de inven-tar una nueva manera de bajarlas escaleras pero tambien   sintio alivio cuando llego   abajo y por fin pudo posar   los pies de nuevo en el suelopues se estaba empezando a   marear.":GOSUB30
350 REM  EL JARDIN 
360 GOSUB60:COLOR15,1:LOCATE8,11:PRINT"F EL JARDIN F":GOSUB30:GOSUB60:COLOR2,1:LOCATE0,0:PRINT:PRINT"WSi lograra subir esa colina alcanzaria a ver todo el jar-din.Seguire el camino aunque parece que da mas vueltas queun sacacorchos."
370 PRINT"Y asi lo hizo.Pero por mucho que caminara, y por muchos   desvios que cogiera siempre  acababa delante de la casa.":PRINT"WNunca habia visto una casa  tan entrometida.Nunca!"
380 PRINT"Delante suyo,a unos metros,  Alicia ve ahora un mazizo de flores bordeado de margaritasen cuyo centro hay un sauce  lloron. Decide ir a olerlas. Para llegar donde se encuen- tran debera:":PRINT
390 INPUT"Caminar hacia adelante,atras,izquierda o derecha";RESP$
400 IF RESP$<>"atras"THENPLAY"c5":PRINT"\ NO. Pista: intenta cortarteel pelo delante de un espejo,como actuas?.":GOSUB820:GOTO390:ELSEPLAY"e9a5"
410 PRINT:PRINT"B Bien.En el mundo del espejolas cosas ocurren al reves y alejandose de las flores es  como consigue llegar hasta   Ellas.":GOSUB30
420 PRINT:PRINT"WAy, Azuzena, ojala que las  flores pudierais hablar!":PRINT"WPues claro que podemos!, si la persona vale la pena.":PRINT"WY todas las flores podeis   hablar?":PRINT"WTan bien como tu, y desde   luego mas alto."
430 PRINT"WPor cortesia Wdijo la RosaW no nos corresponde hablar    primero a nosotras.Por ciertotienes un color muy bonito.":PRINT"WSi, pero me preocupa el as- pecto de sus petalos Wdijo laAzuzena.":PRINT"WNunca habia visto flores quehablaran."
440 PRINT"WEso tiene su explicacion.   Toca el suelo y dime como    esta.":PRINT"WMuy duro.":GOSUB30:PRINT"WLo ves?.En otros jardines elsuelo esta tan blando que lasflores se pasan el dia dormi-das.":PRINT"WNo se me habia ocurrido!"
450 PRINT"WMe parece que poquitas cosasse te ocurren a ti Wdijo la  Rosa.":PRINT"WAdemas tiene cara de tontita Wdijo una Violeta.":PRINT"WTu calla! Wdijo la AzuzenaW.Ni que hubieras visto a tantagente.":PRINT"WHay mas gente en el jardin?"
460 PRINT"WHay otra flor que se mueve  como tu-dijo la RosaW.Pero esmas frondosa.":PRINT"WEs como yo?":PRINT"WTiene una forma parecida,   pero es mas rojiza y con los petalos mas cortos.":PRINT"WCrees que estara por aqui?":GOSUB30
470 PRINT"WProbablemente.Mira,precisa- mente por alli viene...":PRINT"Alicia echo un vistazo y vio a la Reina Roja,y penso:Ala,como a crecido, es mas alta  que yo!":PRINT"WVoy a saludarla.":PRINT"Y se despidio cortesmente de las flores."
480 PRINT"Las flores hicieron lo propioy la Rosa le dijo:":PRINT"WPara llegar hasta Ella debe-rias ir justo en direccion   contraria...Pero sobre todo  no pises las flores!":GOSUB30
490 PRINT:PRINT:PRINT"Usa los CURSORES para llevar a ALICIA hasta la REINA ROJA."
500 PRINT"FFFFFFFFFFFFFFFFFFFFFFFFF
510 PRINT"O  OO    O            O?FR
520 PRINT"F A O FO OOO O O  OOOCO FE
530 PRINT"F   O FO     O OOOO OOO FI
540 PRINT"FOO O FOOO OOO O        FN
550 PRINT"F   O FO   OC  O OOOOOOOFA
560 PRINT"F FFO  O OOOOOOO O      F
570 PRINT"F OOOO O O       O FOOO FR
580 PRINT"F      O O OOOOOOO FO?O FO
590 PRINT"FOO OOOO O     O    O O FJ
600 PRINT"F   O    O FFF OOOO O O FA
610 PRINT"F OOO OOOO OOO    O O   F
620 PRINT"F   O   O    OOOO O O OOF
630 PRINT"F OOOOO OOOO O    O O O  L
640 PRINT"F     O O    O OOOO O O FC
650 PRINT"FOO O O OO OOO      O O F
660 PRINT"F   O?O    OCOOO FFFO   F
670 PRINT"F OOOOOOOO O O?O OOOOOOOF
680 PRINT"F     CO       O       ?FInt"
690 PRINT"FFFFFFFFFFFFFFFFFFFFFFFFF  ":LOCATE25,22:PRINTVI
700 D=STICK(0)
710 IF VI<0 THEN GOSUB60:GOTO970
720 IF D=1 THEN Y=Y+1:VPOKE(6144+32*(Y-1)+X),32
730 IF D=3 THEN X=X-1:VPOKE(6144+32*Y+(X+1)),32
740 IFD=5THENY=Y-1:VPOKE(6144+32*(Y+1)+X),32
750 IFD=7THENX=X+1:VPOKE(6144+32*Y+(X-1)),32
760 VP=VPEEK(6144+32*Y+X):IFVP=3THENGOSUB900:GOTO810
770 IFVP=63THENGOSUB940:GOTO810
780 IFVP=15THENGOSUB880:GOTO810
790 IFVP=6THENGOSUB920:GOTO810
800 IFVP=12THENGOTO1040
810 VPOKE(6144+32*Y+X),(2):GOTO700
820 REM  RESTAVIDA 
830 VI=VI-1:IFVI<1THENGOSUB60:GOTO970
840 RETURN
850 X=0:REM  MOSQUITO 
860 RA=RND(-TIME)*5:IFRA<2ANDX>0THENX=X-1 ELSE X=X+1:LOCATEX,22:PRINT" zzZ  "
870 IFX<20 THEN GOTO860 ELSE RETURN
880 REM  COLISION O 
890 LOCATEX-2,Y:PRINT"\":COLOR1,15,15:BEEP:COLOR2,1,1:COLOR1,15,15:BEEP:COLOR2,1,1:VI=VI-1:LOCATE25,22:PRINTVI:LOCATEX-2,Y:PRINT"O":X=4:Y=5:RETURN
900 REM  COJO CORAZON 
910 BEEP:BEEP:BEEP:VI=VI+1:LOCATE25,22:PRINTVI:RETURN
920 REM  COLISION F 
930 LOCATEX-2,Y:PRINT"\":COLOR1,15,15:BEEP:COLOR2,1,1:COLOR1,15,15:BEEP:COLOR2,1,1:VI=VI-1:LOCATE25,22:PRINTVI:LOCATEX-2,Y:PRINT"F":X=4:Y=5:RETURN
940 REM  COJO ? 
950 RA=RND(-TIME)*4:IFRA=0THENVI=VI+1:ELSEIFRA=1THEN VI=VI-1:ELSEIFRA=2THENVI=VI+2:ELSEIFRA=3THENVI=VI-2
960 LOCATE25,22:PRINTVI:RETURN
970 REM  DREAM OVER 
980 PRINT:PRINT:PRINT:PRINT"           "
990 PRINT "              "
1000 PRINT"            "
1010 PRINT"                "
1020 PRINT"             "
1030 PRINT:PRINT"         O  V  E  R":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PLAY"v12bafbafagr5agrbafbafba3rgfre5re5rd1","v12cdcdcdcdr5cdrcdcdcdef3rbara6ra6ra1":GOSUB30:RUN
1040 REM  REINA ROJA 
1050 GOSUB60:CLS:PRINT:PRINT"B Conseguido! Alicia estaba  cara a cara con la Reina Rojay muy cerca de la colina.":PRINT"-De donde sales tu? -le pre- gunto la Reina- A donde vas? Piensa,habla educadamente y  no tuerzas los dedos todo el tiempo."
1060 PRINT"WYo queria subir la colina   para ver bien el jardin,     Majestad.":PRINT"WColina? Eso es un valle en  comparacion con las colinas  que conozco.":PRINT"WPero eso que dice no tiene  sentido.":PLAY"v14","v14"
1070 PRINT"WComparandolo con otros sin  sentidos,este tiene tanto como un diccionario.":GOSUB30:PRINT"Alicia no dijo nada.Caminaronun ratito y al poco llegaron a la cima de la colina. Una  serie de riachuelos dividian el campo en cuadriculas."
1080 PRINT"WEs como un gran tablero de  ajedrezWexclamo AliciaW.Y haygente! Desearia jugar aunque solo fuera un peon.Ojala fue-ra una Reina.":PRINT:PRINT"Que famoso ajedrecista dijo: El ajedrez no es como la    vida,el ajedrez es la vida."
1090 INPUT"Tal,Karpov,Kasparov,Fischer, Capablanca";RESP$
1100 IFRESP$<>"Fischer"THENPLAY"v14c5":PRINT"\NO.":GOSUB820:GOTO1090:ELSEPLAY"e9a5"
1110 PRINT:PRINT"B BIEN. Bobby lo dijo.":PRINT:PRINT"Entoces la Reina Roja dijo:":PRINT"WPodrias ser el peon de la   Reina Blanca,empezando en la segunda fila,y cuando lleguesa la fila adecuada podras serREINA.":PRINT
1120 INPUT"En que fila del tablero de   ajedrez puede un peon conver-tirse en Reina.En la 1,2,3,4,5,6,7 u 8";RESP$
1130 IFRESP$<>"8"THENPLAY"c5":PRINT"\NO.No es correcto.":GOSUB820:GOTO1120:ELSEPLAY"e9a5"
1140 PRINT:PRINT"B BIEN. Correcto.":PRINT:PRINT"WAhora tomare medidas.":PRINT"La Reina Roja saco una cinta metrica y empezo a poner pi- votes en el suelo. Termino y dijo:":PRINT"WBueno,cuando avanze 2 yardaste dare tus instrucciones, y"
1150 PRINT"cuando llegue a 3 yardas vol-vere a repetirtelas. Cuando  llegue a 4 te dire Adios,y cuando llegue a la yarda 5   desaparecere.":PRINT"Y asi ocurrio.Alicia se sentoen un arbol y la Reina Roja  empezo a avanzar entre los   pivotes.":GOSUB30
1160 PRINT"Cuando llego al pivote numero2 dijo:":PRINT"WUn peon puede avanzar 2 ca- sillas en su primera jugada. Pasaras rapidamente la casi- lla 3 si coges el tren y lle-garas a la 4 que pertenece a Tweeledee y Tweedledum. La"
1170 PRINT"siguiente es casi todo agua, la 6 es de Humpty Dumpty,la 7es un bosque donde encontra- ras un caballero y en la 8   seremos Reinas y habra feste-jos y diversion!.":PRINT"Alicia hizo una reverencia   protocolaria y volvio a sen- tarse."
1180 PRINT"Al llegar al pivote 3 dijo:":PRINT"WHabla en Frances cuando no  sepas decir algo en Castella-no, saca las puntas de los   pies mientras andas y recuer-da quien eres!.":GOSUB30:PRINT"La Reina Roja se dirijio al"
1190 PRINT"pivote 4,se giro un instante y dijo Adios.Siguio hasta  el ultimo y cuando llego,no  se sabe como,en el aire o en la maleza,desaparecio!.Aliciasorprendida se acordo de que era un peon y de que pronto  seria el momento de moverse.":GOSUB30
1200 REM  LOS INSECTOS 
1210 GOSUB60:COLOR15,1:LOCATE6,11:PRINT"D LOS INSECTOS D":GOSUB30:GOSUB60:COLOR7,1:LOCATE0,0:PRINT:PRINT"Alicia oteo el campo.Vio a lolejos unas abejas libando    flores.Se fijo mas y vio que eran elfantes en realidad!:  Menudas flores seran,penso."
1220 PRINT"Bajo la colina y salto el    primero de los 6 riachuelos.":PRINT:PRINT"            ***":PRINT:PRINT"WTickets,por favor.":PRINT"En el compartimento todos te-nian ticket menos Alicia.":PRINT"WLo siento,no habia taquilla de donde vengo."
1230 PRINT"WEso no es excusa,Wdijo el   revisorW haberselo comprado  al maquinista. Ademas vas en sentido contrario.W Y se fue enfadado.":GOSUB30:PRINT"WUna jovencita deberia saber donde va antes que su nombre Wdijo un caballero enfrente  suyo."
1240 PRINT"WDeberia saber donde esta la taquilla antes que el abece- dario W dijo una cabra senta-da al lado del caballero.":PRINT"WTendra que regresar como    equipaje devuelto Wdijo un   escarabajo al lado de la     cabra."
1250 PRINT"WLo que abecedaria yo Wle su-surro una voz al oidoW por   saber a donde va este tren.":PRINT"Y todos empezaron a dar su   opinion:":PRINT"WQue pongan FRAGIL en el pa- quete.":PRINT"WQue la envien por correo.":PRINT"WNo!,por telegrafo."
1260 PRINT"WEstoy harta del tren! Ojala estuviera en el bosque.":GOSUB30:PRINT"WEs que los trenes Wle dijo  la vocecita al oidoW llenan  mucho,y mas los de hojaldre.":PRINT"WSi tanto te gusta contar    chistes malos, porque no te"
1270 PRINT"los cuentas a ti mismo?Wdijo Alicia irritada sin saber a  donde mirar.":PRINT"La vocecita suspiro con tris-teza, pero termino diciendo: WApesar de todo,se que somos amigos,viejos amigos y que nome haras mal, aunque sea un  insecto."
1280 PRINT"WQue clase de insecto?WAliciapregunto por miedo a una po- sible picadura.":PRINT
1290 INPUT"De que insecto crees tu que  podria tratarse";RESP$
1300 IFRESP$<>"mosquito"THENPLAY"c5":PRINT"\ NO. Pista:":GOSUB820:PRINT:GOSUB850:GOTO1290:ELSEPLAY"e9a5"
1310 PRINT:PRINT"B BIEN.Un mosquito bromista. ":GOSUB30:PRINT"Cuando iba a hablar el silbi-do de la locomotora acallo alinsecto. El maquinista grito:WSolo es un arroyo,tendremos que saltarlo.":PRINT"El resto de los pasajeros se"
1320 PRINT"tranquilizaron pero Alicia noveia claro como un tren iba asaltar.De todas formas penso:Es una forma muy comoda de  pasar de la casilla 3 a la 4El vagon se elevo y debido alsusto se agarro a lo primero que pudo, las barbas de la   Cabra."
1330 PRINT:LOCATE13,22:PRINT"***":PRINT:PRINT"Las barbas se disolvieron en-tre sus manos y se encontro  sentada bajo un arbol y con  el mosquito columpiandose en una rama,que era grande comoun pollo,penso Alicia.":GOSUB30:IFVI<1THENVI=1
1340 PRINT"WAsi que no te gustan todos  los insectos?":PRINT"WBueno,si hablan si. En mi   pais no saben.":PRINT"WNo hay ninguno que te resul-te encantador?":PRINT"WEs que algunos me dan miedo,sobre todos los grandes. Te  dare el nombre de algunos..."
1350 GOSUB30:GOSUB60:CLS:LOCATE0,10:PRINT" AYUDA A ALICIA A DECIR AL   MOSQUITO TODOS LOS NOMBRES   DE INSECTOS QUE ELLA CONOCE. BUSCALOS EN LA SUIGUIENTE    SOPA DE LETRAS.NO TE DEJES NINGUNO, SON 9 EN TOTAL.":GOSUB30:X=0:Y=0:D=0:K=0:RA=0:VP=0:FA=0
1360 CLS:PRINT"qwoweyncbhajbxmfjsroiqwcaskc nvhgdtefmopbdrtcfsxysyqwebdn dhteirepamcnxchinchetwncraew olvbfdjgrgdfsljfqowiueycbvtq wquureivirojabaracsefjadgihy mnlckgoipxtryaouqwvytadsjsgz mnbvisuyoeqwujbcmxajgwygdpjc"
1370 PRINT"qwhezehqseqwouehiqbuheqiwahe quwheqruaheiuqweieeuhiuqthei uwheueinqdpuwhqwdqjwdduydbew duebuydeacweudybuyodewgmosca iuciuybcygbiubcriuryrweiuybr iuybuahcaracuczryerpoeiruakd hbxffnfgietbrewuyeofweygvden "
1380 PRINT" Te quedan";VI;"fallos "
1390 LOCATE0,18:INPUT"Introduce el nombre de un    insecto:";RESP$
1400 IFRESP$="mosca"ANDX=0THENX=1:GOSUB1520:ELSEIFRESP$="mosca"ANDX=1THENGOSUB1540
1410 IFRESP$="chinche"ANDY<1THENY=1:GOSUB1520:ELSEIFRESP$="chinche"ANDY=1THENGOSUB1540
1420 IFRESP$="mariposa"ANDD=0THEND=1:GOSUB1520:ELSEIFRESP$="mariposa"ANDD=1THENGOSUB1540
1430 IFRESP$="escarabajo"ANDK=0THENK=1:GOSUB1520:ELSEIFRESP$="escarabajo"ANDK=1THENGOSUB1540
1440 IFRESP$="cucaracha"ANDRA=0THENRA=1:GOSUB1520:ELSEIFRESP$="cucaracha"ANDRA=1THENGOSUB1540
1450 IFRESP$="abejorro"ANDVP=0THENVP=1:GOSUB1520:ELSEIFRESP$="abejorro"ANDVP=1THENGOSUB1540
1460 IFRESP$="luciernaga"ANDR1=0THENR1=1:GOSUB1520:ELSEIFRESP$="luciernaga"ANDR1=1THENGOSUB1540
1470 IFRESP$="avispa"ANDR2=0THENR2=1:GOSUB1520:ELSEIFRESP$="avispa"ANDR2=1THENGOSUB1540
1480 IFRESP$="piojo"ANDR3=0THENR3=1:GOSUB1520:ELSEIFRESP$="piojo"ANDR3=1THENGOSUB1540
1490 IFR0=0THENPRINT"\ Ese insecto NO esta.":PLAY"c9":GOSUB30:ELSER0=0
1500 GOSUB820:IFFA<9THENGOTO1360
1510 GOTO1560
1520 REM  BIEN sopa 
1530 R0=1:FA=FA+1:VI=VI+1:PRINT"B Bien.":PLAY"e9a5":GOSUB30:RETURN
1540 REM  YAESTA sopa 
1550 R0=1:PRINT"\ Ya esta dicho.":PLAY"c9":GOSUB30:RETURN
1560 REM  seguimosconlahistoria 
1570 GOSUB60:CLS:PRINT"WCuantos nombresWdijo el mos-quitoW. Y si les llamas por  el nombre vienen?":PRINT"WNo,no creo.":PRINT"WEntonces para que sirven?   WLos nombres son utiles para las personas que los usan.Si-no,como hablariamos de las   cosas?
1580 PRINT"WNo se. Mas adelante, en ese bosque,nada tiene nombre. Y  hablando de bichos,ahi tienesuna Paniposa en tu pie. Las  alas son de pan con mantequi-lla,el cuerpo un bizcocho y  la cabeza es un terron de    azucar."
1590 PRINT"WY de que vive?":PRINT"WTe,con un poquito de crema. WY si no lo encuentra?":PRINT"WPues muere,claro.":PRINT"WPero eso ocurrira muchisimo!WMucho no,siempre.":GOSUB30:PRINT"WPero eso es muy triste.":PRINT"WBueno,con tres-tes podria"
1600 PRINT"vivir durante 1 mes!. Es un  chiste.A que es bueno?.":PRINT"WNo,es malisimo.":PRINT"Por las mejillas del mosquitose deslizaron 2 lagrimas.":PRINT"WNo llores mosquito,tampoco  era tan malo...":PRINT"El mosquito suspiro y suspi-"
1610 PRINT"ro,hasta que desaparecio de  la rama.Alicia se sorprendio,pero como empezaba a sentir  frio decidio seguir adelante,y asi llego al borde de un   bosque tenebroso.Este debe  ser el bosque donde las cosaspierden su nombrepenso.Pero"
1620 PRINT"como no habia otra forma de  llegar a la casilla 8 decidiocruzarle.":GOSUB30:PRINT"WEs oscuro, pero tiene unos  bonitos...eh,como se llaman?Wdijo tocando un arbol.WVaya, era cierto.Pero si me esfuer-zo seguro que recuerdo quien"
1630 PRINT"soy.Bueno,mi nombre empezaba por L, eso seguro.":PRINT"Entonces un cervatillo se le acerco tranquilamente por el camino y la pregunto:":PRINT"WComo te llamas?":PRINT"WNo lo recuerdo.Si me dices  como te llamas tu,quizas me  acuerde."
1640 PRINT"WAqui no recuerdo.Caminemos  juntos un poco y te lo dire. Alicia abrazada al cuello delcervatillo cruzo el bosque.Alsalir a campo abierto el cer-vatillo dio un salto de ale- gria:":PRINT"WYa recuerdo quien soy,soy uncervatillo!":GOSUB30
1650 PRINT:INPUT"Que crees que hizo el cerva- tillo despues: huir]atacar]  morder]nada";RESP$
1660 IFRESP$<>"huir"THENPLAY"c5":GOSUB820:PRINT"\ NO exactamente.":GOTO1650:ELSEPLAY"e9a5"
1670 PRINT:PRINT"B Exacto.":GOSUB30:PRINT:PRINT"WHay de mi,Wgrito asustadoW  eres un humano!":PRINT"Y se alejo corriendo por la  pradera.":PRINT"Alicia casi llora al ver comose iba el tierno animal,pero penso:Bueno,al menos volvi"
1680 PRINT"a recordar mi nombre de nuevoy esta vez no pienso olvidar-lo nunca mas.Y ahora, cual deestos 2 carteles deberia se- guir.Bueno,lo decidire cuandoel camino se divida. Pero   cada vez que el camino se di-vidia los carteles apuntaban"
1690 PRINT"siempre en la mismisima di-  reccion.Uno decia:":PRINT:
1700 PRINT"      XWWWWWWWWWWWWWWW^
1710 PRINT"      V A la casa de   ^
1720 PRINT"      V  TWEEDLEDUM    ]
1730 PRINT"      ZWWWWWWRWRWWWWWW]
1740 PRINT"             VV":GOSUB30:PRINT:PRINT"Y el otro:":PRINT
1750 PRINT"    XWWWWWWWWWWWWWWW^
1760 PRINT"    V A la casa de   ^
1770 PRINT"    V  TWEEDLEDEE    ]
1780 PRINT"    ZWWWWWWRWRWWWWWW]
1790 PRINT"           VV":GOSUB30
1800 PRINT:PRINT"WEmpiezo a creer que viven enla misma casa.Bueno, les hareuna visita corta y preguntarecomo llegar a la casilla 8.  Siguio andando y hablando consigo misma,hasta que doblandoun recodo se encontro de so- peton con dos hombrecillos "
1810 PRINT"gorditos.":PRINT"Casi dio un salto de la sor- presa, y cuando se recobro   supo al instante que se tra- taba sin duda de ...":GOSUB30
1820 REM  TWEEDLEDEE 
1830 GOSUB60:COLOR15,1:LOCATE1,11:PRINT"N TWEEDLEDEE Y TWEEDLEDUM N":GOSUB30:GOSUB60:COLOR9,1:LOCATE0,0:PRINT:PRINT"Alli estaban de pie bajo un  arbol.En los cuellos de sus  camisas se leia DUM y DEE.   Por detras pondra TWEEDLE  penso Alicia."
1840 PRINT"Cuando iba a comprobarlo el  marcado con DUM dijo:":PRINT"WSi crees que somos figuras  de cera deberias pagar por   mirar.":PRINT"WAl contrarioWdijo el marcadocon DEEW,si crees que estamosvivos deberias hablarnos."
1850 PRINT"WTienen razon,lo siento WdijoAlicia,y una cancion le empe-zo a rondar por la cabeza taninsintentemente que tuvo que cantarla en alto:":PRINT:PRINT"(AYUDA A ALICIA A RECORDAR LACANCION ESCRIBIENDO LAS PALA-BRAS QUE FALTAN)":GOSUB30:GOSUB60
1860 LOCATE0,5:PRINT"Tweedledee a ??????????":PRINT"le rompio el ????????":PRINT"y por esta razon":PRINT"decidieron batirse en ?????. Pero un negro ??????":PRINT"???? del cielo,":PRINT"y los dos de el ???????.":FA=0:X=0:Y=0:K=0:D=0:RA=0:VP=0
1870 LOCATE0,15:INPUT"Que palabras crees que tu    faltan";RESP$
1880 IFRESP$="Tweedledum"ANDX=0THENX=1:GOSUB1520:LOCATE13,5:PRINT"TWEEDLEDUM"
1890 IFRESP$="sonajero"ANDY=0THENY=1:GOSUB1520:LOCATE13,6:PRINT"SONAJERO"
1900 IFRESP$="duelo"ANDK=0THENK=1:GOSUB1520:LOCATE22,8:PRINT"DUELO"
1910 IFRESP$="cuervo"ANDD=0THEND=1:GOSUB1520:LOCATE14,9:PRINT"CUERVO"
1920 IFRESP$="bajo"ANDRA=0THENRA=1:GOSUB1520:LOCATE0,10:PRINT"BAJO"
1930 IFRESP$="huyeron"ANDVP=0THENVP=1:GOSUB1520:LOCATE16,11:PRINT"HUYERON"
1940 IFFA<6THENGOSUB1950:GOTO1870:ELSEGOTO1970
1950 REM  BORRAPOEMATWE 
1960 LOCATE8,16:PRINT"                ":LOCATE0,17:PRINT"       ":RETURN
1970 REM  seguimoshistoria 
1980 LOCATE0,20:PRINT"CONSEGUIDO!!. Muy bien.":GOSUB30:GOSUB60:GOSUB60:LOCATE0,8:COLOR8,1,1:PRINT" Has llegado al final de la    PRIMERA CARGA del juego.":GOSUB2040:PRINT:PRINT:PRINT"CLAVE para la segunda carga:"
1990 PRINT:PRINT"   XWWWWWWWWWWWWWWWWWWWY":PRINT"   V evamariasefue V":PRINT"   ZWWWWWWWWWWWWWWWWWWW[":GOSUB30:GOSUB30:RUN
2000 REM WWWWWWWWW TITULO WWWWWWWWWW
2010 LOCATE0,23:PRINT"      A TRAVES DEL ESPEJO":PRINT:PRINT"               y de lo que":PRINT:PRINT"            ":PRINT"                  "
2020 PRINT"              ":PRINT"              ":PRINT:PRINT "         se encontro alli":FORK=0TO5:PRINT:NEXTK:PRINT"DDDDDDD Pulsa Espacio DDDDDDD"
2030 GOSUB30:RETURN:REM ------------
2040 REM ------- HUSHABYE TUNE -----
2050 PLAY"v14","v14"
2060 PLAY"c10r10d10c10r10e10r10r10e10r10d10r10c10d10r10c10r10r10r10","r10r10r10r10r10c10r10r10r10r10c10r10r10r10r10e10r10r10r10"
2070 PLAY"e10r10f10e10r10g10r10r10g10r10f10r10e10f10r10e10r10r10r10","c10r10r10r10r10e10r10r10r10r10c10r10r10r10r10g10r10r10r10"
2080 PLAY"c10r10d10c10r10e10r10r10e10r10d10r10e10d10r10f10r10r10r10","e10r10r10r10r10c10r10r10r10r10c10r10r10r10r10a10r10r10r10"
2090 PLAY"g10r10r10c10r10g10r10r10f10e10r10d10r10e10r10c10r10r10r10","c10r10r10r10r10e10r10r10c10r10r10r10r10c10r10r10r10r10r10"
2100 RETURN
2110 REM ----- joesg presenta ------
2120 LOCATE0,7:PRINT"         ":PRINT"             ":PRINT"               ":PRINT"             ":PRINT"             ":PRINT"        ":PRINT"            PRESENTA:":PRINT:PRINT
2130 PRINT"Para el concurso de KONAMITO":PRINT"   de MSX-BASIC 2012-2013":RETURN
